home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / POLYMATH < prev    next >
Text File  |  1987-05-21  |  2KB  |  37 lines
  1. 10 CLS:PRINT"POLYMATH-Multiplies,Divides & Powers POLYNOMIALS"
  2. 20 CLEAR:DIM A(100),B(100)
  3. 30 INPUT"MENU: 1=MULT: 2=DIVIDE: 3=POWER: SELECT";N:ON N GOSUB 110,150
  4. 40 INPUT"POLY DEGREE=";D:A=5:M=D:GOSUB 90:INPUT"POWER REQUIRED=";C
  5. 50 FOR A=5 TO B:A(A+D+1)=A(A):NEXT A:FOR A=2 TO C
  6. 60 IF A*D+A+4>=D+6 THEN KB=1
  7. 62 FOR B=(A*D+A+4) TO (D+6) STEP-1
  8. 63 J=B+1+D:FOR C=B+1 TO J
  9. 65 A(C)=A(C)+A(B)*A(C-B+4)
  10. 67 NEXT C:C=J
  11. 69 A(B)=0:NEXT B:IF KB=1 THEN KB=0:B=B+1
  12. 70 IF B<=A*D+D+7 THEN BB=1
  13. 72 FOR B=B TO (A*D+D+7)
  14. 74 A(B)=A(B+1):NEXT B:IF BB=1 THEN BB=0:B=B-1
  15. 75 NEXT A:A=A-1
  16. 76 A=D+6:B=B-1:BEEP:PRINT"RESULT:"
  17. 77 FOR D=A TO B
  18. 78 C=B-D:PRINT"COEFFICIENT of X^";C;"=";A(D)
  19. 80 NEXT D:PRINT:GOTO 20
  20. 90 B=A+D:FOR A=A TO B
  21. 100 PRINT"COEFFICIENT of X^";M;"=";:INPUT A(A):M=M-1:NEXT A :RETURN
  22. 110 INPUT"DEGREE of  1st POLYNOMIAL=";A:FOR J=A TO 0 STEP -1:PRINT"COEFFICIENT of X^";J;"=";:INPUT A(J):NEXT J
  23. 120 PRINT:INPUT"DEGREE of  2nd POLYNOMIAL=";B:FOR J=B TO 0 STEP -1:PRINT"COEFFICIENT of X^";J;"=";:INPUT B(J):NEXT J
  24. 130 PRINT:PRINT"PRODUCT:":FOR J=A+B TO 0 STEP-1:FOR K=0 TO A:FOR L=0 TO B:IF J=K+L THEN C=C+A(K)*B(L)
  25. 140 NEXT L:NEXT K:PRINT"COEFFICIENT of X^";J;"=";C:C=0:NEXT J:PRINT:GOTO 20
  26. 150 INPUT"NUMERATOR DEGREE=";D:A=6:E=D+7:M=D:GOSUB 90:PRINT:INPUT"DENOMINATOR DEGREE=";D:M=D
  27. 160 A=E:GOSUB 90:PRINT:PRINT"QUOTIENT:":IF D+7>E THEN PRINT"=0":A=6:GOTO 190
  28. 170 FOR A=6 TO E-D-1:C=A(A)/A(E)
  29. 175 IF D>0 THEN FOR B=A+1 TO A+D:A(B)=A(B)-C*A(B+E-A):NEXT B:B=B-1
  30. 180 B=E-D-A-1:PRINT"COEFFICIENT of X^";B;"=";C
  31. 185 NEXT A:A=A-1
  32. 187 A=A+SGN(D)
  33. 190 IF D>0 THEN PRINT:PRINT"REMAINDER (divide by denominator)":B=E-1:GOTO 77
  34. 200 PRINT:GOTO 20
  35.  
  36.                        MACINTOSH LISTING
  37.